00010	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00055	C  LOAD WITH MSSIO.FAI(USES OK CHANS.) & LOOK.FAI (FOR UNPAC ROUTINE)
00100		COMMON I,J,K
00200		DIMENSION M(128)
00208		SZ=-1
00210	105	TYPE 100
00220		ACCEPT 101,NM
00222		IF(NM.NE.'SIZE')GO TO 102
00224		TYPE 103
00226	103	FORMAT(' TYPE SIZE -- '$)
00227	104	FORMAT(F)
00228		ACCEPT 104, SZ
00229		GO TO 105
00230		IF(NM.EQ.' ')NM='PLT'
00240	100	FORMAT(' TYPE FILE NAME  '$)
00250	101	FORMAT(A5)
00300		IF(SZ)CALL PLOTS(N)
00350		CALL GETFI2(NM)
00400	1	CALL FASTI2(M,128)
00500		DO 3 JJ=2,M(1)+1
00550		CALL UNPAC(M(JJ),I)
00555	CC	J=M(JJ)
00556	CC	K=J/100000000
00557	CC	J=J-K*100000000
00558	CC	I=J/10000
00580	CC	J=J-I*10000-5000
00581	CC	I=I-5000
00585	CC	K=K-4
00590	C  I  IS FIRST OF THREE LOCATIONS.
00600	3	CALL PLOT(I,J,K)
00700		IF(M(1).EQ.127)GO TO 1
00800		TYPE 2
00900	2	FORMAT(' DON''T FORGET "PLT.DMD" ON DSK.')
01000		END